From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 15 May 1993 21:17:55 +0000 (+0000)
Subject: Rename `primary-selection' to `region'.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~96253
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=578d09a64200f322b9a8a8bd0c51ac4a290607df;p=emacs.git

Rename `primary-selection' to `region'.
---

diff --git a/lisp/faces.el b/lisp/faces.el
index 405c6b4fe51..0c1e4180ad9 100644
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -610,10 +610,10 @@ If NOERROR is non-nil, return nil on failure."
   (make-face 'bold)
   (make-face 'italic)
   (make-face 'bold-italic)
-  (make-face 'primary-selection)
+  (make-face 'region)
   (make-face 'secondary-selection)
 
-  (setq region-face (face-id 'primary-selection))
+  (setq region-face (face-id 'region))
 
   ;; Set up the faces of all existing X Window frames.
   (let ((frames (frame-list)))
@@ -682,10 +682,10 @@ If NOERROR is non-nil, return nil on failure."
 ;;;	    (set-face-background-pixmap 'highlight "gray1" frame)
 	(error (invert-face 'highlight frame))))
 
-  (or (face-differs-from-default-p 'primary-selection frame)
+  (or (face-differs-from-default-p 'region frame)
       (condition-case ()
-	  (set-face-background 'primary-selection "gray" frame)
-	(error (invert-face 'primary-selection frame))))
+	  (set-face-background 'region "gray" frame)
+	(error (invert-face 'region frame))))
 
   (or (face-differs-from-default-p 'secondary-selection frame)
       (condition-case ()